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* * 
* SMUG BYTES B 
* Volume 8, Number 8 * 
* August 1991 * 
* * 
* Subscriptions = $10.00 per year * 
* or free with swap Send to: * 
x * 
* SINCLAIR MILWAUKEE USERS GROUP * 
* P.O. Box 101, Butier WI 53007 i 
* * 
p c ———Ó——————— -—————————— * 
* 
* THIS MONTH: 
* 
x = Contest Program — Part 3 
x 
X — Meeting Notes 
x* 
» = Dayton Computerfest 
x 
x — Presidents Program 
x 
x* — And Other Great Things 
x* 
x If any articles are copied 
* please credit SMUG BYTES 
* and the author. 
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NEXT MEETING DATE: 09/04/91 

SEE YOU THERE * 

Oi a a a IIl ee ee es e eder es c i * 
* Send ali contributions by the * 
* 3rd Wednesday of the month to: * 
* * 
x Bill Heberlein * 
* Editor * 
t SMUG BYTES * 
* 505z N. 91st Street i 
S Milwauxee Wi 52225-4129 * 
* * 
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* 

* 1991 OFFICERS 
* & WORKING 

* MEMBERS 

* 

* 

* All Area Codes Are 414 
*President - Biil Heberiein 

x - 527 2191 

*V. Pres. —- Neal Schultz 

* - 353 4522 

*Secretary - Bud Dankert 

x - 251 4464 


*Treasurer - R. Cultice 
- 542 3591 
*Education - R. Cultice 
* - 542 3591 


* 


* — Librarians 
*Tape/Disk -Z. Pawlowski 
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* 1 — 338 0260 

* Book - D. Nickel 
x 1 - 284 9691 

* 

* — Sub Group Leacers 
xU - R. Cultice 
*Meeting - Suspended 

* - 542 3591 

*Games - N. Schultz 


xMeeting 3rd Saturcay of the month“ 


* - 353 4522 X 
*Harcware - G. Kraemer * 
*Meet-no set Gate. Call for info. * 
x - 421 @179 P» 
xL - R. Hilsmann * 
*Meeting 3r Wednesday of month * 
* - 251 5291 * 
*Spectrum - R. Hiismann * 
*Meeting 3rd Wednesday of month ig 
i - 251 5291 i 
* * 
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NOTE NEITHER ANY AUTHOR OR SMUG BYTES TAKES ANY RESPONSIBILITY 
FOR ANY HARDWARE MODIFICATIONS TO YOUR EQUIPMENT. 


Contest Program WwW 
This is a continuation of iast months 
program. Hope to see another by next 
month. Well enjoy. 
These lines are the last i2 fer 
section of the program 


15000 REMark delete by record number 

15001 BORDER 9,1,7: PAPER 1: INK 6: CLS: AT 1,2: PRINT "DELETE RECORD BY RECORD 
NUMBER." 

15082 AT 5,0: PRINT "RESTORE FROM DISK? Y/N" 

15003 inky$-INKEYS(0): IF inky$=="Y" THEN GO TO 15006: END IF 

15004 IF inky$=="N" THEN GO TO 15208: END IF 

15005 GO TO 15003 

15966 GO SUB 11000 

15008 BORDER 9,1,7: PAPER 1: INK 5: CLS: AT 10,2: PRINT "TO RETURN TO MENU ENTZR 


5 
919 INPUT "Enter record number '";rec no 
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The new Computer Store 
2na 
For Not-So-New 
BYTES 


Computers 


x 


SAVE THE HASSLE... have 2nd BYTES sell your 
" unused " computer, peripherals and software. 
— We are in the Business to sell your computer. 


X 


SAVE MONEY. buy your computer, peripheral and 
software at 2nd BYTES. 


X 


SAVE TIME. have our professional consultants 
assist you in finding the computer and the programs 
for your needs. 
- We are in the business to help you select an inexpensive 
system. 


X 


WARRANTY. on almost all equipment we sell. 
— We service what we sell. 


774—1155 


9721 W. Greenfield Avenue West Allis WI 53214 
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OR IN OTHERWORDS 
THE MEETING 


We Giscussed the Comput 
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There was a art = from John Peterson 
of the Southern California group about 
the Sinclair 2s space. It does us 
proud. It will be at the next meeting 
also so show up to see it. 


The meeting did not last long but 
Gordon displayed his TS1000 with the 
handicap hook-up. It's very impressive 
and inexpensive. The biggest cost must 
be the input device. The one that the 
operator uses to communicate with the 
computer. 


Commodore 
Panasonic 
Amiga 
Brother 
NEC 
Samsung 
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‘COMPUTER AND PRINTER REPAIR 


FACTORY AUTHORIZED SERVICE 


Apple compatibles e IBM compatibles 
9 and other popular brands 


dB 


10953 West Mitchell oaks 


ir fest 


s and very 


separate 


but 


there 


we 


Well the fest was a succes 

enjoyabie There were 26 

names on the Sinclair list 

were many others who stoppe 

us that they had one 

computers but weren't using 1 

because they had others. I 

changed their mind or at least mace 
them think. Also attending was Sharp's 


although he was only selling IBM/Clone 
type hardware. He says he hasn't put 
out a catalog for over a year 


might as well write him off. 


donated a few door prizes 


winners are not known yet. 
following user groups were there: 
Indiana, Chicago and Milwaukee. 
attendees follow. 


e Star Micronics 
e Atari 

e Citizen 

e C.Itoh l 

e Silver- Reed 

e Goldstar 


Mon.- Fri. 9-7 
Saturday 12-4 


3 locks south of Green feld Ave. 
and 1 kock west of HWY 100 
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so we 
RMG 
but 


had 
the 
The 
DC, 
The 


PRESIDENTS PROGRAM 
Here are tne attendees state/names: 


PA/Cari L. Mohle 
D. G. Smith 
David Sennett 
MD/Audrevy Curnutt 
Robert Curnutt 
Ruth regley 
VA/Mark Stuben 
AL/Harry L. Spencer Jr. 
KY/Conrad Miller 
OH/Bill Bell 
Toby Radloff 
James Doug Gillespie 
Jon J. Kaczor 
Dave Schwensen 
Jud Yalkut 
IN/Paul Holmgren 
Frank Davis 
Carol Davis 
Charles E. Wilson 
Don Lambert 
MI/Mike Konieczny 
John J. Impellizzeri 
Mike Martin 
IA/John Shepard 
WI/Neal Schuitz 
Bill Heberlein 
IL/Bob Swoger 
Steve Cooper 
CO/Jeffrev Anderson 
Andy Hradesky 


Upcoming computer/ham shows: Sat. & 
Sun. Sept. 21-22 Radio Expo Grayslake 
Il. $5 in advance $6 at door. Sat. 
Oct. 5, 1991 Fallfest ‘91. Greenbay 
Community Center 8am til ?. $2 at the 
door.The Kettle Moraine Radio Amateurs 


Swapfest, Sunday, Oct. 13th, 1991, 
Waukesha Expo Center. $4-$5 at the 
door. 


FOR VOUR TIMEX/SINCLAIR NEEDS, VOU 
CAN COUNT ON RMG TO BE HERE FOR A LONG 
TIME TO COME! SPREAD THE WORD! THOUGH 
MANY PRODUCTS ARE BECOMING. HAAD TO FIND. 
WE WILL DO OUR BEST TO FILL RL, neras: ¢ 
(d FOR CATALOG. SEND $4 * 


1? RING ETTERPRIGES. 


1419 1/2 7TH STREET 

PN OREGON CITY, OR 97045 

iv 503/655-7484 2-10 PM PT TUE-SAT n 
VISA & MC ACCEPTED! 2 


SHRREWRRE LIBRRRY 
DISKS AVAILABLE 
RMG NOW HAS OVER 60 MBYTES OF PC 

MS-DOS SHARWARE AVAILABLE FOR A VERY 
GOOD PRICE! AT ONLY $2.50 PER DISK WHEN 
YOU ORDER A MINIMUM OF 10 PROGRAMS AND 

WE PAY THE SHIPPING! 

FPR A FREE LIST OF PROGRAMS AVAILABLE. 
SEND S.A.&.E. WITH $.50 POSTAGE OR A DISK 
MAILER WITH $.50 POSTAGE (SELF-ADORESSED) 
AND YOU WILL GET A FREE LISTING WITH AN 

ORDER BLANK. 


RMG ENTERPRISES 


1419 1/2 7TH STREET 
OREGON CITY, OR 97045 
503/655-7484 2-10 PM PT TUE-SAT 
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"Stay down, Bosworth, we're caught in 
a vendor crossfire!'' 


Another computer crime 


ENTIRECO 
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CONGLOMERATE 
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GK ENTERPRISES 
Your Computer Supply Source 
No need to wait for a sale. 
Our prices are low everyday 
Wide selection of printer ribbons 
AXIOM C. ITOH EPSON OKIDATA 


PANASONIC STAR AND MANY MORE. 


ROK OK 


*SMUG SPECIAL* 
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2700 sheets 9 1/2 x 11 20# Microperf $23.50 
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* 546-0111 * 
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8634 W. National Avenue West Allis WI 53227 
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20 IF rec no»5900 THEN sub menu-1: GO SUB 153600: RETurn 
15024 x$(1, 1 TO 6@)=mS$(rec_no, 1 TO 60) 
15035 CLS 
(i40 AT 12.0: PRINT x$(1, 1 TO 30) 
WWo50 AT 13,0: PRINT x$(1, 31 TO 50) 
15055 AT 14,0: PRINT "Months=";*$(1, 51): x$SCt, 592)" x$(1. 5237 
Pere Ey egeo Come xo "All. DON a? RRS a OS PE ye MR RSL EOE) 
Year=";x$(1, 59 TO 68) 
15060 AT 17,2: PRINT "IF CORRECT RECORD ENTER Y ELSE N' 
15070 inkyS=INKEYS(@) E CODE (inky$S)=@ THEN GO TO 15070: END IF 
15080 IF inky$=="Y" THEN GO TO 15100: END IF 
15090 IF inky$=='n' THEN GO TO 15008: END IF 
15095 GO TO 159070 
15100 IF m$(rec no, 1 TO 6)=" " THEN CLS: PRINT m$(rec no, 1 TO 6) 
rec no: sub length-1: STOP: GO TO 15104: END IF 
15102 sub_length=@: 
15104 m$(rec no, 1 TO 6@)=" 
15105 chanced-1 
15107 IF sub» length THEN GO TO 15110: END IF 
15108 NUN 
15119 AT 17,2: PRINT * More? y/n j 
15120 inkyS-: NKEYS (0) : IF CODE (inky$)=@ THEN GO TO 1512@: END IF 
a IF inkyS--2" Y" THEN GO TO 15008: END IF 
i IF ii paa THEN sub menus-1 GO TO 15008: END IF 
151 GO TO 15120 
T scs REMark now save the m$ master file 
15310 IF changed THEN GO TO 15330: END IF 
(6558320 RETurn 
W330 m-1 
15340 FOR n-1 TO 500 
15250 IF m$(n, 1 TO 5)s" " THEN NEXT n 
15355 m$(m, 1 TO 6@)=m$(n, 1 TO 60) 
15360 m=m+1: E'"^ FOR n 
15370 FOR n=m+. TO 500 
15380 ms(n, 1 TO 6@)=" 
12290 CO SUB 12000: changed=@: RETurn 
16000 REMark Add month to record number 
16001 BORDER 9,2,7: PAPER 2: INK 6: CLS: AT 1,2: PRINT "ADD MONTH TO RECORD 
NUMZER.'": changed=@ 
16002 AT 5,0: PRINT "RESTORE FROM DISK? Y/N" 
15003 ink yS-INKEYS(0). IF inky$=="Y" THEN GO TO 16006: END IF 
16604 IF inky$=="N" THEN GO TO 16007: END IF 
16005 GO TO 16803 
15006 GO SUB 11000 
15007 BORDER 9,2,7: PAPER 2: INK 6: CLS: AT 5,0: PRINT " ENTER UPDATE MONTH. 
ONLY ENTER IT ONCE UNLESS A NEW MONTH IS WANTED. ENTER 0 TO KEEP OLD 
MONTH" 
16008 AT 1,2: PRINT "ADD MONTH TO RECORD NUMBER." 
15010 AT 8,0: INPUT new month 
1620 Ir NOT new month THEN GO TO 16050: END IF 
-5042 IF new month«0 OR new month^8 THEN GO TO 16010: END IF 
P ELE change monthenew month 
Up eco AT 10,2 PRINT “TO EETURN TO MENU ENTER 555" 
16070 INPUT " Enter record number ";rec no 
16690 IF rec no»5500 THEN GO SUB 16300: sub menus1: RETurn 
16698 xS(1 a 5 50)-2mS(rec no, 1 TO 66) 
SMUG Bytes 7 Anayet 
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16100 AT 12,9: PRINT x$(i. 1 TO 30) 

16110 AT 13,90: PRINT x$(21, 31 TO 56) 

16120 AT 14,0: PRINT '"Morrths-";xSg(i, 51); PERS. Dee x “RRS, 92935 
";x$(1, 54) 5) E o "Exell, 57)g4', “xe, 5872" 
Year=";x3(1 

16120 AT i7 CORO EN LER CY ELSE N" 

6199 i Yo) =O THAN GO TO 16219320: ENDLF 

16140 I 2i END ir 

£9245 1 9: END IF 

15147 C 

16153 c 

16160 mS(rec no, 5@+change_month) =change_month 

15178 AT 17.2: PRINT " More? y/n j 


16180 inky$=INKEY$(0): IF CODE (inky$)=ð THEN GO TO 16180: END IF 

16185 IF inkv$--2" "Y" THEN GO TO 16060: END IF 

16190 IF inkv$--"n" THEN sub menu-1 : GO SUB 16300: GO TO 16060: END IF 
16195 GO TO 16180 

16310 IF changed THEN GO SUB 12000: changed=@: RETurn : END IF 

16320  RETurn 

1706060 REMark change the record. Last name, first name and all months 
17001 BORDER 9,3,7: PAPER 3: INK @: CLS: AT 1,2: PRINT "ADJUST RECORD": 
changed-0 

17002 AT 5,0: PRINT "RESTORE FROM DISK? Y/N" 

17003 inky$=INKEY$(@): IF inkv$--"Y" THEN GO TO 170906: END IF 

17004 IF inky$=="N" THEN GO TO 17007: END IF 

17005 CO TO 17003 

17006 GO SUB 11000 

17007 BORDER 9,3,7: PAPER 3: INK 0: CLS: AT 5,0: PRINT "ENTER THE RECORD NUMBER 
TO BE CHANGED. ENTER 555 TO RETURN TO THE SUB MENU." U 
17008 AT 1,2: PRINT "ADD MONTH TO RECORD NUMBER." 

17010 AT 8,0: INPUT rec no 

17080 IF rec no»500 THEN GO SUB 17300: sub menu-1: RETurn 

17090 x$(1, TO 60)2m$(rec no, 1 TO 60) 

17100 AT 12, PRINT xs(1, 1 TO 30) 

17110 AT 13, PRINT x$(1, 31 TO 50) 

17120 AT 14, PRINT "Months-2";x$(1, 51);", ";x$(1, 52);", ";x$(1, 53);", 
"sx$(1, 54); Pere (a. Soy Meee 56)"; “xS; Se heer "xS; 99937 
Year=";x$(i, 59 TO 60) 

17130 AT 17.2: PRINT "IF CORRECT RECORD ENTER Y ELSE N" 

17135 inky$-INKEYS(0): IF CODE (inkv$)-0 THEN GO TO 17135: END IF 

17140 IF inky$=="Y" THEN GO TO 17150: END IF 

17145 IF inky$=="n" THEN GO TO i7010: END IF 

17147 GO TO 17135 
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17150 changed-i: IF inky$<"@" OR inkysS>"{' THEN FLASH 1: PRINT #0,"TURN ON UPPER 
CASE": FLASH 0: PAUSE 40000: CLS #0: END IF 

17151 AT 10,0: PRINT "ENTER NEW LAST NAME OR @ TO IGNORE.": INPUT 
#0, XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX Mex UI. cp T9380 


17152 IF x$(1, 1)="0" THEN GO TO 17154 

17153 mel rec. no, 1 TO 30)=x$(1, 1 TO 30) 

17154 AT 10,0: PRINT "ENTER NEW FIRST NAME OR @ TO IGNORE.": INPUT 
#0, XXXXXXXXXXXXXXXXXXXX "x§(1, 31 TO 50) 

17155 IF x$(1, 31)="0" TEEN GO TO 17157 

17156 m$(rec_no, Si TO 50)9x$(l. 31 TO $0) 

17157 AT 10,0: PRINT "ENTER ALL MONTHS OR @ TO IGNORE IF NO MONTH ENTER | 
BLANK": INPUT $0," XXXXXXXX "octo. £1, Oa, TO 9B) D 
17158 IF xS(1, 51)-2'"0" TEEN GO TO 17179 

17159 m$(rec_no, 51 TO 58)=x$(1, 531 TO 58) 

17170 AT 17,2: PRINT. More? y/n 5 

17180 inky$-1NKEYS(0): IF CODE (inxy$)-9 THEN GO TO 17180: END IF 


~] 
Ol 


& 


. 
(oO ʻO O 


H 
daas 


Cy» (6 


ed 


3 

2 

2 
^ 


AA 
voe 
zie 
Gre 


[25:00 pIE 
(a cp «up 


A 


AUNT V 
i= E rs. 
OM o = 


"It just says, ' 
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Save the Trees’... pe 


GO TO 17@@7: END IF 


SHAD Pe~ 


Yet another disturbing exampie that technology 
may not always provide the best solution to a problem. 
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The Sinclair Milwaukee Users Group 
CSMUG ) 


are a not-for-profit group devote Newsletter subscription is availab rs 
to serving the interests of those who for only $10 per year to non members 
c use, and/or are interested in the or free with & ciub membership. A club 
T Sinciair family of computers membership is $22 per year for a4 
famiiy membership 
Editor and contact person is 
Bili Henerlein (414) 527 2191. Advertising cost for 1/2 page ad 


; runing for six months is $10. The aa 
SMUG maintains a gratis ex¢hange of copy may be changed each month but you 
newsietters with approximátely 30 must supply the copy. 
Users Groups across the :U.S. and 
Canada. Clubs not sending néwsletters 
for more than 6 months arè removed 20 38 


from our mailing list. ty? : 
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SMUG 3YTES FIRST CLA 
S052 Ni 91st Street : 
Milwaukee WI 53225-4129 i J= NÀ 
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The next meeting of SMUG will be held on: 
Wednesday, September 4,1991 


6:€0 Set Up 6:30 
7:20 Business Meeting 8:30 
9:00 — 10:30 Clean Up 
Wednesday, October 2,1991 
6:600 set Up 6:30 
7:229 Business Meeting 8:30 
8:€2 10:30 Clean Up é ih 
Location ~~ 
Egui:sble Savings. and Loan, 
145tħ and Capital Drive, 
Milwaukee WI 


August 1991 
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